################
#Section 1: Main models
################
script_path<-wkdir
out_path<-paste0(wkdir,"/output_uncorr/1_main_models/")

if(!dir.exists(out_path)){
	dir.create(out_path,recursive=T)
}else{
	warning("Overwriting previous run, if any")
}

############
#Run scripts
############
setwd(script_path)

#Predicting partisan support
source("1_models_partysupport.R")

#Predicting policy adoption
source("2_models_outcomes.R")

#Post-estimation policy support
source("3_post_partysupport.R")

#Post-estimation policy adoption
source("4_post_outcomes.R")